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Subroutine ERFPRCSINI ( Array_addr, Array_size ) 


Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
* ONLY IN ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
+ TNELUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 0 OTH » 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
© OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE TS° HERESY 
* TRANSFERRED. : 
vy ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. ‘ 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR: ELlLiott A. Drayton CREATION DATE: 27-Jan-1983 
Functional description: 
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This is the initialization module for the loadable sues ERFPROCS.EXE. 
After ERFPROCS has been loaded this routine is called to return 

the information from it tables. These tables specifiy which error 

log packets this loadable image will process. The tables consist of: 


ENTRY TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The ENTRY TYPE value is the packet type identifier for the packets that 
this loadable image will process. 


The DEVICE CLASS value specifies the class of the packet that will 
be process by this loadable image. 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished by the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device or entry type. For example, the transfer 
vectors for the disk image are ordered as: 


INITDISK ' a routine similar to this one 
MASSDISK i a device specific routine 
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Change tables to support system power fail, system startup, 
new errlog.sys file, time stamps, snderr, operator, and 


Modified by: 
$R0001 Sharon Reynolds 17-Mar-1983 
network messages. 
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DEFINE ENTRY TYPES 


! MESSAGE module 


! 
Parameter EMBSK_SS = 39 ! $Snderr message entry %X27 
Parameter EMBSK_OM = 41 ! Operator message entry %X29 
Parameter EMBSK_NM = 42 ! Network message entry %X2a 


SYSPWRFAIL module 
! System power fail %Xx22 


SYSTARTUP module 

systee startup entry %X20 
cold start) 

ayesee powerfail recovery %x24 
warm start) 


NEWFILE module 
New errlog file created entry%Xx23 
! Time stamp entry %X26 
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Parameter EMBSK_PF = 


Parameter EMBSK_CS = 32 
Parameter EMBSK_WS = 36 


Parameter EMBSK_NF = $3 
Parameter EMBSK_TS = 


Parameter Zero = 0 
Parameter V1 = 1 


Device module version number 
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Parameter Maxtypes = 8 
0100 Integer*4 Array_addr, Array_size 
a4 Integer*2 ProcS_codes ( 4 * Maxtypes ) 
bi08 Data Procs codes / 

104 1 EMBSK_SS, zero, V1, 1, ! $Snderr message entry 
0105 § EMBSK_OM, zero, V1, 1, ! Operator message entry 
gine EMBSK_NM, zero, V1, 1, ' Network message entry 
01 4 EMBSK_PF, zero, V1, 2, ! System power-fail 
0108 5 EMBSK_CS, zero, V1, 3, ! System restart (cold) 
0109 6 EMBSK_WS, zero, V1, 3, ! System power-fail reocvery 
ati? 7 EMBSK_NF, zero, V1, 4, ' New file created entry 

Ng 8 EMBSK_TS, zero, V1, 4/ ! Time stamp entry 

11 

114 Array_addr = Z%LOC (proc5_codes(1)) 

ot Array_size = Maxtypes 
oi? Return 

118 End 
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ERFPRCSINI 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 
2 SLOCAL 64 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 83 


ENTRY POINTS 
Address Type Name 


0-00000000 ERFPRCSINI 
VARIABLES 
Address Type Name Address Type Name 


AP=000000048 I1*4 ARRAY_ADDR AP-000000088 I*4 ARRAY_SIZE 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*2 PROCS_CODES 64 (32) 
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COMMAND QUALIFIERS 

FORTRAN /LIS=L1S$: INITPROCS/OBJ=08J$:INITPROCS MSRC$:INITPROCS 
sansa NOUNDERF LOW) 
rss net's Ce ro . 


COMPILATION STATISTICS 


Run Time: 9.8) seconds 
Elapsed Time: 68 seconds 
Page Faults: 86 

Dynamic Memory: 155 pages 
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